my $file=$ARGV[0];
my $prefix_to_delet=$ARGV[1];
my $file_out = $file."get_rid_head.txt";
open(FH,"<$file") or die;
my @in=<FH>;
chomp(@in);
close(FH);
my @out;
foreach my $line(@in){
	next if $line =~ /$prefix_to_delet/;
	push(@out,"$line\n");
}
open(OUT,">$file_out") or die;
print OUT @out;
close(OUT);
